home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
LUCKY.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1991-05-23
|
4KB
|
100 lines
Cprint
Prompt
DriveType
Drive
DrvType
GetDirectory<
GetDirData>
DirEntry1
Attribute
EntryCount
GetDosVer
DosVer
GetDrive{
GetDriveAllocation
Clustors
Sectors
Bytes
Available
GetDriveFree
Total
Used0
GetEquipment&
PrinterPorts[
CommPortsQ
GameAdapter
CoProcessor
Drives
GetMemorySize
MemoryB
GetPrinterPortC
PrinterPortp
Status
InkeyBox
Reply
MakeBox
BoxType
Title
MakeLine
LType"
MakeMenu<
MType
IType
TFore
VReplyu
Make123
motion}
CColV
RestScreenj
ScrnSave
SaveScreen
ScrlList
Btype
ListLen
ShowLen
ShowWid
ItemsW
ShowDir
ShowType
TypeLine
PrinterStatus
Delay
SecondsJ
ViewFile
Name/
MaxLength
LineCount
AScrollY
@ GetVerify>
ValidDrives
GetVideob
VideoMode
CharCol
VideoPage
MakeBitNum4
BitString
NumberK
MakeBitStr
CheckBitNum
BitCheck
CheckBitStr
GetHighLow
SetHighLow
NMALLOC
Scroll
intro40
intro40.doc
Which
inkey
first
SIX number loto Press 6
FIVE number loto Press 5"
Which LOTO do you wish to play...... "7
"
Your lucky numbers "
Press ENTER to change numbers...or <N> to END"
CALL OOPS
Your lucky numbers "
Press ENTER to change numbers...or <N> to END"
CALL OOPS